home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / signon.dir / 00072_Script_72 < prev   
Text File  |  1994-11-29  |  476b  |  19 lines
  1. on importQT
  2.   
  3.   repeat with castNum = 1 to the number of castMembers
  4.     if ( the castType of cast castNum = #digitalVideo  ) then
  5.       put the filename of cast castNum into movName
  6.       set oldDel = the itemDelimiter
  7.       set the itemDelimiter = ":"
  8.       put "QTMOVS" into item 5 of movName
  9.       set the itemDelimiter = oldDel
  10.       -- for debugging
  11.       put castNum movName
  12.       importFIleInto cast castNum,movName
  13.     end if
  14.   end repeat
  15.   
  16. end
  17.  
  18.  
  19.